5 POKE53281,.:POKE53280,12:PRINTCHR$(147)CHR$(14)CHR$(8)
8 GOSUB61000
10 POKE214,9:PRINT:PRINTTAB(11)"[159][210][207][194][201][206] [200][207][207][196]'[211] [199][207][204][196]"
11 PRINTTAB(5)"[154][193] [199]AME FROM [205]ERRY [207]LDE [202]APAN"
12 SA=14336:HI=INT(SA/256):LO=SA-HI*256
13 SYS57812"ROBIN.FONT",8,0
14 POKE780,0:POKE781,LO:POKE782,HI:SYS65493:POKE53272,31
15 POKE147,0:SYS57812"ROBIN.MUS",8,1:SYS62631
16 POKE147,0:SYS57812"SS",8,1:SYS62631
17 PRINT"          [201]NSTRUCTIONS [Y/N]"
18 GETK$:IFK$=""THEN18
19 IFK$="Y"THENGOSUB5000:PRINT"[147]":GOSUB61000
20 POKE214,13:PRINT:PRINT"[150]           [204]OADING [208]ROGRAM..."
21 GOTO60000
5000 PRINT"[147][154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
5010 PRINT"[221]       [150]   [210]OBIN [200]OOD'S [199]OLD           [154][221]";
5020 PRINT"[171]``````````````````````````````````````[179]";
5030 PRINT"}                                      [146][154]}";
5040 PRINT"} wELL, IT SEEMS THAT rOBIN hOOD AND   [146][154]}";
5050 PRINT"} HIS BAND OF mERRY mEN ARE STILL AT   [146][154]}";
5060 PRINT"[221] IT.  [217]OUR JOB AS [210]OBIN IS TO GO      [146][154][221]";
5070 PRINT"} AROUND sHERWOOD fOREST COLLECTING    [146][154]}";
5080 PRINT"[221] ALL THE BAGS OF GOLD FROM THE RICH   [146][154][221]";
5090 PRINT"[221] TO GIVE TO THE POOR.                 [146][154][221]";
5100 PRINT"}                                      [146][154]}";
5110 PRINT"} nATURALLY, THE sHERIFF OF nOTTINGHAM [146][154]}";
5120 PRINT"} HAS PUT SOME RESTRICTIONS ON YOUR    [146][154]}";
5130 PRINT"} MOVEMENTS AND A LITTLE ADVANCED      [146][154]}";
5140 PRINT"} PLANNING WILL BE NECESSARY.          [146][154]}";
5150 PRINT"}                                      [146][154]}";
5160 PRINT"} tHERE ARE SEVEN CHALLENGES OR        [146][154]}";
5170 PRINT"} PUZZLES FOR YOU TO SOLVE.  uSE THE   [146][154]}";
5180 PRINT"} CURSOR KEYS TO GUIDE rOBIN (&)       [146][154]}";
5190 PRINT"[221] THROUGH THE FOREST.                  [146][154][221]";
5200 PRINT"}                                      [146][154]}";
5210 PRINT"}                                      [146][154]}";
5220 PRINT"[171]``````````````````````````````````````[179]";
5230 PRINT"}             [153]pRESS return             [154]}";
5240 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";:POKE2023,125:POKE56295,14
5250 GETK$:IFK$<>CHR$(13)THEN5250
5260 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
5270 PRINT"}       [150] rOBIN hOOD'S cHALLENGE        [154]}";
5280 PRINT"[171]``````````````````````````````````````[179]";
5290 PRINT"}                                      [146][154]}";
5300 PRINT"} tHE sHERIFF HAS PUT THESE            [146][154]}";
5310 PRINT"} LIMITATIONS ON YOUR MOVEMENT:        [146][154]}";
5320 PRINT"}                                      [146][154]}";
5330 PRINT"} 1] yOU MAY MOVE ONLY HORIZONTALLY OR [146][154]}";
5340 PRINT"}    VERTICALLY.                       [146][154]}";
5350 PRINT"}                                      [146][154]}";
5360 PRINT"} 2] yOU MAY NOT RETRACE YOUR LAST     [146][154]}";
5370 PRINT"}    STEP.  fOR EXAMPLE, IF YOU HAVE   [146][154]}";
5380 PRINT"}    JUST MOVED FROM LEFT TO RIGHT,    [146][154]}";
5390 PRINT"}    YOUR NEXT MOVE MAY NOT BE FROM    [146][154]}";
5400 PRINT"}    RIGHT TO LEFT.                    [146][154]}";
5410 PRINT"}                                      [146][154]}";
5420 PRINT"} 3] yOU MAY NOT MOVE THROUGH THE      [146][154]}";
5430 PRINT"}    TREES (#).                        [146][154]}";
5440 PRINT"}                                      [146][154]}";
5450 PRINT"}                                      [146][154]}";
5460 PRINT"}                                      [146][154]}";
5470 PRINT"}                                      [146][154]}";
5480 PRINT"[171]``````````````````````````````````````[179]";
5490 PRINT"}             [153]pRESS return             [154]}";
5500 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";:POKE2023,125:POKE56295,14
5510 GETK$:IFK$<>CHR$(13)THEN5510
5520 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
5530 PRINT"}[150]        rOBIN hOOD'S cHALLENGE        [154]}";
5540 PRINT"[171]``````````````````````````````````````[179]";
5550 PRINT"}                                      [146][154]}";
5560 PRINT"} 4] yOU MAY MOVE THROUGH THE          [146][154]}";
5570 PRINT"}    CLEARINGS (%) BUT ONLY FROM       [146][154]}";
5580 PRINT"}    GOLD BAG TO GOLD BAG ($).         [146][154]}";
5590 PRINT"}                                      [146][154]}";
5600 PRINT"[221] [200]OWEVER, YOU MAY:                    [146][154][221]";
5610 PRINT"}                                      [146][154]}";
5620 PRINT"} 5] pRESS 'h' FOR A QUICK REVIEW      [146][154]}";
5630 PRINT"}    OF THESE INSTRUCTIONS.            [146][154]}";
5640 PRINT"}                                      [146][154]}";
5650 PRINT"[221] 6] [208]RESS '[205]' TO SOOTHE YOUR NERVES   [146][154][221]";
5660 PRINT"[221]    WITH A LITTLE [205]OZART.             [146][154][221]";
5670 PRINT"}                                      [146][154]}";
5680 PRINT"[221] 7] [208]RESS '[211]' TO SEE ONE POSSIBLE     [146][154][221]";
5690 PRINT"[221]    SOLUTION.                         [146][154][221]";
5700 PRINT"}                                      [146][154]}";
5710 PRINT"} 8] pRESS 'q' TO RETURN TO THE MAIN   [146][154]}";
5720 PRINT"}    MENU.                             [146][154]}";
5730 PRINT"}                                      [146][154]}";
5740 PRINT"[171]``````````````````````````````````````[179]";
5750 PRINT"}[153]             pRESS return             [154]}";
5760 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";:POKE2023,125:POKE56295,14
5770 GETK$:IFK$<>CHR$(13)THEN5770
5780 RETURN
5790 :
60000 OPEN15,8,15,"R0:ROBIN=ROBIN":INPUT#15,ER:CLOSE15
60010 IF ER<>63 THEN PRINT"":END
60020 A$="ROBIN":Q$=CHR$(34)
60030 PRINT"[144]LOAD"Q$A$Q$",8"
60040 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
61000 POKE214,15:PRINT
61110 PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
61120 PRINT"  [152]                                    "
61130 PRINT"                                      "
61140 PRINT"                                      "
61150 PRINT"        [208]UBLISHED ON [204][207][193][196][211][212][193][210] 60      "
61160 PRINT"      [211]UBSCRIPTIONS 1-800-831-2694    "
61170 PRINT"     [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]  "
61180 PRINT"                                      "
61190 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
61200 AU$="[210]OBIN [200]OOD'S [199]OLD":POKE214,17:PRINT
61205 PRINTSPC(20-LEN(AU$)/2)"[152]"AU$
61210 AU$="[194]Y [194]ARBARA [200]. [211]CHULAK ([195]) 1989":POKE214,18:PRINT
61220 PRINTSPC(20-LEN(AU$)/2)"[152]"AU$"":RETURN